Chloropleth and interactive mapping of oil spill events in California.
oil_spills <- read_sf(here::here("project_tab_data",
"Oil_Spill_Incident_Tracking_%5Bds394%5D-shp"),
layer = "Oil_Spill_Incident_Tracking_%5Bds394%5D") %>%
clean_names()
#st_crs(oil_spills)
ca_counties <- read_sf(here("project_tab_data", "ca_counties"), layer = "CA_Counties_TIGER2016") %>%
clean_names() %>%
select(name)
#st_crs(ca_counties)
oil_spills_counties <- ca_counties %>%
st_join(oil_spills) %>%
group_by(name) %>%
count()
ggplot() +
geom_sf(data = oil_spills_counties, aes(fill = n),
color = "black") +
scale_fill_gradientn(colors = c("orange", "deeppink3", "mediumorchid1")) +
labs(fill = "Number of Spills",
title = "Inland Oil Spill Events by County 2008 HALL 2020") +
theme_void()

Distill is a publication format for scientific and technical writing, native to the web.
Learn more about using Distill at https://rstudio.github.io/distill.